#!/usr/bin/perl 
use DBI;
use CGI;
use TTraker;

print_header();
initialize_dbi();

my $form_ref = parse_input();

my %FORM_DATA = %$form_ref; 

$query = CGI->new;
$num = $query->param('num');
$name = $query->param('name');
$job = $query->param('job');
$loc = $query->param('loc');
$dir = $query->param('dir');

csr_work_screen_from_pm ($num, $name, $job, $loc, $dir);

##################### SUBROUTINES FOLLOW  #####################


